home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / receipt.exe / VENDLG.FRM < prev   
Text File  |  1993-07-22  |  8KB  |  256 lines
  1. VERSION 2.00
  2. Begin Form Form5 
  3.    Caption         =   "Vendor Data"
  4.    ClientHeight    =   4005
  5.    ClientLeft      =   1035
  6.    ClientTop       =   1515
  7.    ClientWidth     =   8175
  8.    Height          =   4410
  9.    Left            =   975
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form5"
  12.    ScaleHeight     =   267
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   545
  15.    Top             =   1170
  16.    Width           =   8295
  17.    Begin CommandButton Command2 
  18.       Caption         =   "Cancel"
  19.       Height          =   375
  20.       Left            =   4560
  21.       TabIndex        =   1
  22.       Top             =   3360
  23.       Width           =   2295
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "OK"
  27.       Height          =   375
  28.       Left            =   1200
  29.       TabIndex        =   0
  30.       Top             =   3360
  31.       Width           =   2295
  32.    End
  33.    Begin VBedit BEdit6 
  34.       CellHeight      =   32
  35.       CellWidth       =   22
  36.       CharSet         =   16404
  37.       CombBaseLine    =   24.333
  38.       CombEndHeight   =   8
  39.       CombEndMarker   =   0   'False
  40.       CombHeight      =   4
  41.       FontBold        =   0   'False
  42.       FontItalic      =   0   'False
  43.       FontName        =   "Arial"
  44.       FontSize        =   18
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   495
  48.       InflateBottom   =   12
  49.       InflateLeft     =   12
  50.       InflateRight    =   12
  51.       InflateTop      =   16
  52.       Left            =   5880
  53.       TabIndex        =   13
  54.       Text            =   "  /  /"
  55.       Top             =   2640
  56.       Version         =   268435458
  57.       Width           =   2055
  58.    End
  59.    Begin VBedit BEdit5 
  60.       CellHeight      =   32
  61.       CellWidth       =   22
  62.       CharSet         =   16404
  63.       CombBaseLine    =   24.333
  64.       CombEndHeight   =   8
  65.       CombEndMarker   =   0   'False
  66.       CombHeight      =   4
  67.       FontBold        =   0   'False
  68.       FontItalic      =   0   'False
  69.       FontName        =   "Arial"
  70.       FontSize        =   18
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   495
  74.       InflateBottom   =   12
  75.       InflateLeft     =   12
  76.       InflateRight    =   12
  77.       InflateTop      =   16
  78.       Left            =   1920
  79.       TabIndex        =   12
  80.       Text            =   "  /  /"
  81.       Top             =   2640
  82.       Version         =   268435458
  83.       Width           =   2055
  84.    End
  85.    Begin VBedit BEdit4 
  86.       CellHeight      =   32
  87.       CellWidth       =   22
  88.       CombBaseLine    =   24.333
  89.       CombEndHeight   =   8
  90.       CombEndMarker   =   0   'False
  91.       CombHeight      =   4
  92.       FontBold        =   0   'False
  93.       FontItalic      =   0   'False
  94.       FontName        =   "Arial"
  95.       FontSize        =   18
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       Height          =   495
  99.       InflateBottom   =   12
  100.       InflateLeft     =   12
  101.       InflateRight    =   12
  102.       InflateTop      =   16
  103.       Left            =   1920
  104.       TabIndex        =   11
  105.       Top             =   2040
  106.       Version         =   268435458
  107.       Width           =   6015
  108.    End
  109.    Begin VBedit BEdit3 
  110.       CellHeight      =   32
  111.       CellWidth       =   22
  112.       CombBaseLine    =   24.333
  113.       CombEndHeight   =   8
  114.       CombEndMarker   =   0   'False
  115.       CombHeight      =   4
  116.       FontBold        =   0   'False
  117.       FontItalic      =   0   'False
  118.       FontName        =   "Arial"
  119.       FontSize        =   18
  120.       FontStrikethru  =   0   'False
  121.       FontUnderline   =   0   'False
  122.       Height          =   495
  123.       InflateBottom   =   12
  124.       InflateLeft     =   12
  125.       InflateRight    =   12
  126.       InflateTop      =   16
  127.       Left            =   1920
  128.       TabIndex        =   10
  129.       Top             =   1440
  130.       Version         =   268435458
  131.       Width           =   6015
  132.    End
  133.    Begin VBedit BEdit2 
  134.       CellHeight      =   32
  135.       CellWidth       =   22
  136.       CombBaseLine    =   24.333
  137.       CombEndHeight   =   8
  138.       CombEndMarker   =   0   'False
  139.       CombHeight      =   4
  140.       FontBold        =   0   'False
  141.       FontItalic      =   0   'False
  142.       FontName        =   "Arial"
  143.       FontSize        =   18
  144.       FontStrikethru  =   0   'False
  145.       FontUnderline   =   0   'False
  146.       Height          =   495
  147.       InflateBottom   =   12
  148.       InflateLeft     =   12
  149.       InflateRight    =   12
  150.       InflateTop      =   16
  151.       Left            =   1920
  152.       TabIndex        =   9
  153.       Top             =   840
  154.       Version         =   268435458
  155.       Width           =   6015
  156.    End
  157.    Begin VBedit BEdit1 
  158.       CellHeight      =   32
  159.       CellWidth       =   22
  160.       CombBaseLine    =   24.333
  161.       CombEndHeight   =   8
  162.       CombEndMarker   =   0   'False
  163.       CombHeight      =   4
  164.       FontBold        =   0   'False
  165.       FontItalic      =   0   'False
  166.       FontName        =   "Arial"
  167.       FontSize        =   18
  168.       FontStrikethru  =   0   'False
  169.       FontUnderline   =   0   'False
  170.       Height          =   495
  171.       InflateBottom   =   12
  172.       InflateLeft     =   12
  173.       InflateRight    =   12
  174.       InflateTop      =   16
  175.       Left            =   1920
  176.       TabIndex        =   8
  177.       Top             =   240
  178.       Version         =   268435458
  179.       Width           =   6015
  180.    End
  181.    Begin Label Label6 
  182.       Caption         =   "Est. Arrival Date:"
  183.       Height          =   255
  184.       Left            =   4200
  185.       TabIndex        =   7
  186.       Top             =   2760
  187.       Width           =   1575
  188.    End
  189.    Begin Label Label5 
  190.       Caption         =   "Date Ordered:"
  191.       Height          =   255
  192.       Left            =   240
  193.       TabIndex        =   6
  194.       Top             =   2760
  195.       Width           =   1335
  196.    End
  197.    Begin Label Label4 
  198.       Caption         =   "Vendor Contact:"
  199.       Height          =   255
  200.       Left            =   240
  201.       TabIndex        =   5
  202.       Top             =   2160
  203.       Width           =   1455
  204.    End
  205.    Begin Label Label3 
  206.       Caption         =   "Called In By:"
  207.       Height          =   255
  208.       Left            =   240
  209.       TabIndex        =   4
  210.       Top             =   1560
  211.       Width           =   1215
  212.    End
  213.    Begin Label Label2 
  214.       Caption         =   "Vendor Number:"
  215.       Height          =   255
  216.       Left            =   240
  217.       TabIndex        =   3
  218.       Top             =   960
  219.       Width           =   1455
  220.    End
  221.    Begin Label Label1 
  222.       Caption         =   "Vendor Name:"
  223.       Height          =   255
  224.       Left            =   240
  225.       TabIndex        =   2
  226.       Top             =   360
  227.       Width           =   1335
  228.    End
  229. End
  230.  
  231. Sub Command1_Click ()
  232.    Form1.VenName.Text = LTrim$(BEdit1.Text)
  233.    Form1.VenNo.Text = LTrim$(BEdit2.Text)
  234.    Form1.CalledIn.Text = LTrim$(BEdit3.Text)
  235.    Form1.VenContact.Text = LTrim$(BEdit4.Text)
  236.    Form1.OrderDate.Text = BEdit5.Text
  237.    Form1.EstDate.Text = BEdit6.Text
  238.    Unload Form5
  239. End Sub
  240.  
  241. Sub Command2_Click ()
  242.    Unload Form5
  243. End Sub
  244.  
  245. Sub Form_Load ()
  246.    Form5.Top = (Screen.Height - Form5.Height) / 2
  247.    Form5.Left = (Screen.Width - Form5.Width) / 2
  248.    BEdit1.Text = Form1.VenName.Text
  249.    BEdit2.Text = LTrim$(Form1.VenNo.Text)
  250.    BEdit3.Text = Form1.CalledIn.Text
  251.    BEdit4.Text = Form1.VenContact.Text
  252.    BEdit5.Text = Form1.OrderDate.Text
  253.    BEdit6.Text = Form1.EstDate.Text
  254. End Sub
  255.  
  256.